		SPEARMAN RANK CORRELATION COEFFICIENT

Michael Lloyd (http://www.hsu.edu/faculty/lloydm/ti/prgmtabl.html)
Henderson State University

HISTORY
1.0 December 1997
1.1 August 2015 - Updated file to .8xp

VARIABLES USED
list theta1 = data and ranks of x group
list theta2 = data and ranks y group
list theta3 = 1,2,3...
N = sample size
prgmZZRANK
R = Spearman rank corellation coefficient
X = sequence term

PROGRAM LISTING
Disp "SPEARMAN RANK","CORR COEFF"
Input "GROUP X =",\L\\theta\1
Input "GROUP Y =",\L\\theta\2
dim(\L\\theta\1)\->\N
seq(X,X,1,N)\->\\L\\theta\3
\L\\theta\3\->\\L\RANK
SortA(\L\\theta\1,\L\\theta\3)
\L\\theta\1\->\\L\TEMP:prgmZZRANK:\L\RANK\->\\L\\theta\1
SortA(\L\\theta\3,\L\\theta\1)
\L\\theta\3\->\\L\RANK
SortA(\L\\theta\2,\L\\theta\3)
\L\\theta\2\->\\L\TEMP:prgmZZRANK:\L\RANK\->\\L\\theta\2
SortA(\L\\theta\3,\L\\theta\2)
1-6sum((\L\\theta\1-\L\\theta\2)\^2\)/N/(N\^2\-1)\->\R
Disp "R=",R
DelVar \L\\theta\1:DelVar \L\\theta\2:DelVar \L\\theta\3